10 REM **********************
20 REM * GEOS-SUPER QUALITY *
30 REM *  WRITTEN IN 1991   *
40 REM * BY ANDRE SCHMANDT  *
50 REM **********************
60 :
70 POKE53280,0:POKE53281,0:DIMA$(12),A(12)
80 PRINT"[147]*** [199][197][207][211] - [211]UPER [209]UALITY ***":PRINT"**** BY [193]NDRE' [211]CHMANDT ****"
90 PRINT"[211]ELBSTTEST...":B=49242:FORI=0TO46:S=0:FORII=0TO15:READA
100 IFA=>0THENPOKEB+I*16+II,A:S=S+A:NEXTII
110 READA:IFA<>STHENE$=STR$(1020+I*10):GOTO410
120 PRINTTAB(4)(46-I)"[157] [145]":NEXTI:S=0:I(1)=13:I(2)=7:I(3)=5:I(4)=15:FORI=1TO4:B$(I)=""
130 FORII=1TOI(I):READA:B$(I)=B$(I)+CHR$(A):S=S+A:NEXTII,I
140 IFS<>3043THENE$=" 1520/1530":GOTO410
150 PRINT"[196]ATAS SIND [207][203].":FORI=0TO23:POKE49152+I,PEEK(49242+I):NEXTI
160 INPUT"[199]ERAETEADRESSE  4[157][157][157]";GA:INPUT"[211]EKUNDAERADRESSE  0[157][157][157]";SA:POKE49176,GA
170 POKE49177,SA:B=49178:A$="[201]NITIALISERUNG":B$="27 64":AZ=12:GOSUB350
180 A$="[205]ICRO-[214]ORSCHUB 1/216 [218]OLL":B$="27 '3 1":GOSUB350
190 A$="[214]ORSCHUB 23/216 [218]OLL":B$="27 '3 23":GOSUB350
200 A$="[199]RAFIKMODUS (1920 [208]UNKTE)":B$="27 '* 3":GOSUB350
210 A$="[204]INE [198]EED":B$="10":GOSUB350:A$="[198]ORM [198]EED":B$="12":AZ=1:GOSUB350
220 PRINT:INPUT"[218]EILEN  94[157][157][157][157]";ZE:PRINT
230 POKEB-2,A(1):POKEB-1,80:POKEB,ZE:FORI=1TO22:POKEB+I,0:NEXT:FORI=0TO79:POKE49986+I,0:NEXTI
240 PRINT:PRINT"[194]ITTE EINE LEERE [196]ISKETTE EINLEGEN,":PRINT"AUF DER EIN EINZIGER [212]REIBER IST"
250 PRINT:PRINT"[212]ASTE DRUECKEN":POKE198,0:WAIT198,1:GETA$
260 OPEN15,8,15:OPEN8,8,8,"#":U=1:T=18:S=1:GOSUB420:P=24:GOSUB430:GET#8,A$
270 CLOSE8:IFA$<>CHR$(9)THENCLOSE15:PRINT"[203]EIN [212]REIBER AN ERSTER [211]TELLE DER [196]ISK!":END
280 OPEN8,8,1,"SWAP FILE,S,W":FORI=0TO913:PRINT#8,CHR$(PEEK(49152+I));:NEXTI:CLOSE8
290 OPEN8,8,8,"#":GOSUB420:P=35:GOSUB430:GET#8,T$,S$:IFS$=""THENS$=CHR$(0)
300 P=3:GOSUB430:PRINT#8,T$;S$;B$(1);CHR$(160)CHR$(160)CHR$(160);:GET#8,IT$,IS$,A$,A$
310 PRINT#8,B$(2);:GET#8,A$,A$:PRINT#8,CHR$(0);:IFIS$=""THENIS$=CHR$(0)
320 U=2:GOSUB420:U=1:T=ASC(IT$):S=ASC(IS$):GOSUB420:P=77:GOSUB430
330 PRINT#8,B$(1);CHR$(32)CHR$(32);B$(3);B$(4);CHR$(0)CHR$(0)CHR$(0)CHR$(0)CHR$(0);
340 U=2:GOSUB420:CLOSE8:CLOSE15:END
350 PRINT"[147][195]ODES FUER "A$:PRINT"Z.[194].: "B$:PRINT:PRINT"[205]AXIMAL"AZ"[195]ODES !":PRINT
360 PRINT"[206]ACH JEDER [197]INGABE [210]ETURN DRUECKEN":PRINT:FORI=1TO12:A$(I)="":A(I)=0:NEXT
370 FORI=1TOAZ:INPUTA$(I):IFLEFT$(A$(I),1)="'"THENA(I)=ASC(MID$(A$(I),2,1)):GOTO390
380 A(I)=VAL(A$(I)):IFA$(I)=""THEN400
390 NEXTI
400 I=I-1:POKEB,I:B=B+1:FORII=1TOAZ:POKEB,A(II):B=B+1:NEXTII:RETURN
410 PRINT"[198]EHLER IN [218]EILE"E$:END
420 PRINT#15,"U"CHR$(48+U)":"8;0;T;S:RETURN
430 PRINT#15,"B-P:"8;P:RETURN
440 :
1000 REM *** MC-CODE FUER TREIBER ***
1010 :
1020 DATA96,234,234,76,198,121,76,25,122,76,251,121,76,16,122,96,1940
1030 DATA234,234,96,234,234,96,234,234,80,110,160,96,169,0,240,4,2455
1040 DATA160,224,169,1,72,152,72,173,24,121,32,177,255,104,13,25,1774
1050 DATA121,32,147,255,104,240,25,76,174,255,173,24,121,32,176,194,2149
1060 DATA76,92,194,24,169,8,101,8,133,8,176,2,208,2,230,9,1440
1070 DATA96,169,78,133,8,169,121,133,9,160,0,177,8,240,241,170,1912
1080 DATA160,1,177,8,32,168,255,200,202,208,247,96,32,148,121,160,2215
1090 DATA0,132,144,160,240,32,124,121,165,144,240,10,72,32,122,121,1859
1100 DATA32,95,194,104,170,96,32,116,121,169,26,32,173,121,32,174,1687
1110 DATA255,162,0,160,0,136,208,253,202,208,248,32,95,194,162,0,2315
1120 DATA96,32,148,121,32,116,121,173,91,121,32,168,255,32,174,255,1967
1130 DATA32,122,121,76,95,194,169,0,174,92,121,172,93,121,96,32,1710
1140 DATA148,121,32,116,121,165,3,133,9,165,2,133,8,32,84,122,1394
1150 DATA32,171,121,32,174,255,32,95,194,120,165,2,133,8,165,3,1702
1160 DATA133,9,160,79,162,0,152,72,160,7,177,8,157,66,124,32,1498
1170 DATA157,121,104,168,232,136,16,238,88,96,32,180,122,144,250,169,2253
1180 DATA39,32,173,121,169,0,32,109,122,32,171,121,169,52,32,173,1547
1190 DATA121,169,1,141,109,121,169,65,32,173,121,173,94,121,32,168,1810
1200 DATA255,173,95,121,32,168,255,166,2,134,8,166,3,134,9,162,1883
1210 DATA255,142,115,121,174,96,121,138,72,238,115,121,120,160,7,177,2172
1220 DATA8,162,7,106,126,97,121,202,16,249,136,16,242,88,32,5,1613
1230 DATA123,32,157,121,104,170,202,16,222,96,120,162,255,142,96,121,2139
1240 DATA162,79,160,7,177,8,240,3,142,96,121,136,16,246,32,157,1782
1250 DATA121,202,16,238,173,96,121,201,255,208,3,24,88,96,169,0,2011
1260 DATA133,8,133,9,169,24,141,159,121,169,79,56,237,96,121,141,1796
1270 DATA96,121,170,32,157,121,202,16,250,165,8,141,94,121,165,9,1868
1280 DATA141,95,121,169,8,141,159,121,56,88,96,162,6,142,110,121,1736
1290 DATA160,0,32,93,123,185,97,121,141,97,121,174,115,121,224,79,1883
1300 DATA208,8,169,0,141,98,121,76,85,123,165,9,72,165,8,72,1520
1310 DATA32,157,121,120,160,7,177,8,42,110,98,121,136,16,247,88,1640
1320 DATA104,133,8,104,133,9,174,115,121,62,66,124,62,66,124,232,1637
1330 DATA189,66,124,202,42,126,66,124,126,66,124,160,0,140,110,121,1786
1340 DATA76,93,123,185,97,121,141,105,121,141,107,121,140,111,121,200,2003
1350 DATA185,97,121,141,106,121,174,115,121,30,66,124,46,108,121,189,1865
1360 DATA66,124,10,46,108,121,14,105,121,46,108,121,14,106,121,46,1277
1370 DATA108,121,32,202,123,162,6,138,72,14,105,121,46,108,121,14,1493
1380 DATA106,121,46,108,121,32,202,123,104,170,202,16,234,173,112,121,1991
1390 DATA32,168,255,173,113,121,32,168,255,173,114,121,32,168,255,174,2354
1400 DATA110,121,172,111,121,200,202,140,111,121,142,110,121,16,148,96,2042
1410 DATA173,108,121,72,173,109,121,208,82,104,72,41,10,201,10,24,1629
1420 DATA208,20,104,72,41,4,201,4,240,11,104,72,41,1,201,1,1325
1430 DATA208,3,24,144,1,56,46,112,121,104,72,41,6,201,6,24,1169
1440 DATA208,12,104,72,41,9,201,9,208,3,24,144,1,56,46,114,1252
1450 DATA121,104,72,41,9,201,9,24,208,12,104,72,41,15,201,15,1249
1460 DATA208,3,24,144,1,56,46,113,121,104,96,104,41,3,201,3,1268
1470 DATA240,7,24,46,113,121,24,144,5,56,46,113,121,56,46,114,1276
1480 DATA121,173,107,121,141,112,121,96,-1,992
1490 :
1500 REM *** DATEN FUER INFO-BLOCK ***
1510 :
1520 DATA83,117,112,101,114,32,81,117,97,108,105,116,121,91,6,18,11,0,5,0
1530 DATA86,49,46,48,00,65,110,100,114,101,39,32,83,99,104,109,97,110,100,116